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MODULE SETUSER ( 


BEGIN 


' 
PERE SESSI CLIO IIIT TTT TTT TTT Preece rie c cere i irri i iirc i iii i ii iii iit, 


'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

i: ALL RIGHTS RESERVED. 

'e me SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND soriee 
'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'w INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE I$ SUBJECT TO CHANGE WITHOUT NOTICE 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
is CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBIL 
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if 

t 
lepnenundensiasasteisdibininibitahtimaisemtanteinidbdiennediammenaemimeniaebinain 


ITY FOR THE USE OR RELIABILITY OF ITS 


Y 
NOT SUPPLIED BY DIGITAL. 


'+¢ 

] 

FACILITY: Hack Programs 
i ABSTRACT: 


This program changes the process’ user name to be the specified 
string. It requires change mode to kernel privilege to run. 


i ENVIRONMENT : 
VAX/VMS Operating System 
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AUTHOR: Andrew C. Goldstein, CREATION DATE: 27-Mar-1980 14:42 
i MODIFIED BY: 


LIBRARY 'SYS$LIBRARY:L18.L32'; 
LIBRARY ‘SYSS$LIBRARY:CLIMAC.L 32°; 
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Se 1USER 1B-Se0-1984 08:21:57 yAtoHy BLisg=82 V4. 0-742_ 
; $8 GLOBAL ROUTINE SET_USER (START_ADDR, CLI_CALLBACK) = 
7 lee 
Functional Description: 


~~~ 
un 


This routine is the main program of the set user name utility. 


Calling Sequence: 
standard 


Input Parameters: 
CLI_CALLBACK: CLI service callback address 
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Implicit Inputs: 
none 


Output Parameters: 
none 


Routines Called: 
none 
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: Implicit Outputs: 
none 
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09 
09 Signals: 
098 none 
1 099 
1 100 Side Effects: 
: : 1 process name changed 
: 108 | ise 
1 104 
: ! 5 BEGIN 
' 1 , (.CLI_CALLBACK) (GET_COMMAND, 0, 0); 
' 1 SCMKRNL (ROUTIN = WRITE_NAME) 
1 111 END; ! end of routine SET_NAME 
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-IDENT \V04-000\ 


-PSECT SOWNS,NOEXE,2 
01 00000 GET_COMMAND: 
BYTE 
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-BYTE 
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26 bytes, Routine Base: $CODE$ + 0000 
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SYSSCMKRNL 

SCODES ,NOWRT ,2 
SET_USER, Save nothin 
={SP) , ° 
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WRITE_NAME 
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LOBAL ROUTINE WRITE_NAME = 
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! Functional Description: 
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This routine writes the spec tfied user name into the user name 
area in the process control region. 


Calling Sequence: 
standard 


Input pereneteres 
daplicte Inputs: 
one 


Output Parameters: 
none 


Implicit Outputs 
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Routines Called: 
? none 
2 Routine vetuer 
4 
4 Stqnats: 
2 ne 
4 Side Effects: 
4 none 
5 BEGIN 
2 LOCAL 
5 JIB : REF BLOCK C,BYTE); 
; EXTERNA 
ber LS$T_USERNAME : VECTOR C,BYTE] ADDRESSING MODE (ABSOLUTE) 
Z SCHSGC_CURPCB : REF BLOCK C,BYTE] ADDRESSING_MODE (ABSOLUTE); 
6 CHSCOPY ( ;6 T DCCLI$SW_RQSIZEJ, .GET_COMMANDCCLISA_RQADDR) 
° 5 “sn mee LOSERNARES 
6 es  SCHEGL aes sate #18); 
6 CHSCOPY (, fT. Se chase “ROSIZ »GET_COMMANDCCLISA_RQADDRI, 
IBCJIB$T~USERN Fine 5/ 
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1 
END; ! end of routine WRITE_NAME 
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-EXTRN CTLST_USERNAME, SCHSGL_CURPCB 


007C¢ ~ENTRY WRITE syd ave R2,R3,R4,R5,R6 3; 011 
56 0000 Cr 9 HOVAB. GET. COMMA - “RO = 
0c 20 046 86 6 2c MOVC gf T- C ND? @GET_COMMAND+12, #32, #12, - ; 0159 
9900 F @ACTLS$T_USERNAME : 
30 F 4h 1 MOVL et tts GC_CURPCB, RO 3; 0162 
oe B 1 MOVL 128(RO), JIB é 
0c 20 04 ‘i i C If MOVCS eT @GET_COMMAND+12, #32, #12, = 3 0164 
50 0 pO 0 36 MOVL #1, RO + 0167 
4 000 RET ; 
; Routine Size: 42 bytes, Routine Base: SCODES + OO1A 
; 170 §168 
ia. 19? 1 END 
: 172 0170 0 ELUDOM 
3 PSECT SUMMARY 
i Name Bytes Attributes 
: SOWNS 2 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON NORTE ALL ENC? 
; SCODES 68 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
Bae 6 oe eee ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped me 
; 55$DUA28:(SYSLIBILIB.L32;1 18619 9 0 1000 0:01.9 
; £53350 UNS: evs iB it ie MAC.L32;1 14 2 14 9 $0 :00:1 
3 COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SETUSER/OBJ=OBJ$:SETUSER MSRC$:SETUSER/UPDATE=(ENH$: SETUSER) 
3; Size: 68 code + 28 data bytes 
; Run Time: 60:04.7 4 
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